﻿Module Module1
  Sub Main()

    Dim nl As String = Environment.NewLine
    Dim testo As String = _
        "Questo è il nuovo libro su VB " & _
        "che riguarda il linguaggio VB " & _
        "e la programmazione con VB 2010"
    Dim stringaCercata As String = "VB"
    Dim messaggio As String = ""
    messaggio &= "elenco posizioni:" & nl
    Dim posizione As Integer = 0
    For i As Integer = 0 To testo.Length - 2
      If stringaCercata = testo.Substring(i, _
              stringaCercata.Length) Then
        messaggio &= _
            "posizione = " & i & nl
      End If
    Next
    messaggio &= "fine elenco = " & _
        testo.LastIndexOf("C#")
    Console.WriteLine(messaggio)
    Console.ReadLine()

  End Sub
End Module
